;:sys36864
	;.opt oo
	*= $c000
error	=$a445
	lda 1
	and #248
	ora #7
	sta 1
	lda 65408
	beq qokay
	and #$f0
	beq wrong03
	lda #<err1
	sta 34
	lda #>err1
	bne qerr
wrong03	lda #<err2
	sta 34
	lda #>err2
qerr	jmp error
qokay	jmp okay
err1	.byte "illegal systeM"
err2	.byte "illegal kernaL"
clr	.byte "clr:rem"
	.byt 13
tab1	sta 169
	lda #1
	sta 171
	rts
	lda 646
tab2	jsr $e4da
	lda #32
	sta ($d1),y
	dey
	.byt 16,246
	rts
	nop
tab3	jsr $e9f0
	lda #39
	inx
	ldy $d9,x
	.byt 48,6
	clc
	adc #40
	inx
	.byt 16,246
	sta $d5
	jmp $ea24
	cpx $c9
	.byt 240,3
	jmp $e6ed
	rts
	nop
gut	.byt 13
	.byte "bei $2000-$4000 befindet sich nun die"
	.byt 13
	.byte "brennfertige version 3 des c64-kernals."
	.byt 13,13
	.byte "(c)reated by n.heusler"
	.byt 13
	.byte "(/) nh-150788-arr"
	.byte "; sonderheft 64'er,m&t"
	.byt 13,0
okay	ldx #32
	stx 5
	stx 56
	ldy #8
	sty 198
copytxt	lda clr-1,y
	sta 630,y
	dey
	bne copytxt
	sty 2
	sty 4
	lda #224
	sta 3
copyall	lda (2),y
	sta (4),y
	dey
	bne copyall
	inc 3
	inc 5
	dex
	bne copyall
	lda #129
	sta 58540-49152
	lda #145
	sta 58914-49152
	lda #229
	sta 58915-49152
	lda #3
	sta 65408-49152
	lda #76
	sta 61332-49152
	lda #211
	sta 61333-49152
	lda #228
	sta 61334-49152
	ldx #9
copy1	lda tab1,x
	sta 58579-49152,x
	dex
	bpl copy1
	ldx #11
copy2	lda tab2,x
	sta 59911-49152,x
	dex
	bpl copy2
	ldx #29
copy3	lda tab3,x
	sta 58748-49152,x
	dex
	bpl copy3
	lda #<gut
	ldy #>gut
	jmp $ab1e